Top 10k strings from Monte Carlo (1983)(Micromega)(16k)[a].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Various - [TZX] (TOSEC-v2006-06-06) /

Back to the directory listing

   3 tot=te+te+tw
   3 on;"`";play;:
   2 y1-on,x2;"
   2 y1+tw,x2;"
   2 y1+on,x2;"
   2 x1=fi+fi+tw*d
   2 playtot>tot
   2 h$(tw,on,tw)-
   2 c$(on)="A"
   2 a$(card,suit)=b$
   2 ;"HIT ANY KEY":
   2 "You now have ";
   1 y1=fi-on+(fi+tw)*(b-on)
   1 y1=(p-on)*(fi+tw)+fi-on
   1 y1,x1;c$(on);
   1 y1+on,x1;c$(tw)
   1 x=fi+fi+tw+
   1 tw;"Bad luck. ";
   1 tw+tw;" on the table."
   1 tot=tot-te
   1 tot=te+tw:
   1 tot=te+te+on
   1 tot<playtot
   1 th0+hu5-hu
   1 te,te+on;"
   1 te+tw,te+tw;h$(tw,on,tw):
   1 te+tw,te+tw;h$(tw,on,tw)
   1 te+tw,te+on;"
   1 te+tw+on,te+on;"
   1 te+te-on,ze;"   ";
   1 te+te-on,ze;"                  "
   1 te+te-on,ze;
   1 te+on,ze;"You have broken the bank after  having won `";play-fif
   1 te+on,ze;"Ha! You've lost all your money."''':
   1 te+on,te+tw;h$(tw,on,on);
   1 te+on,te+tw;
   1 te+on,te+on;"
   1 te+fi-on,on;
   1 te+fi+tw,th;"There is ";
   1 se;"You won that hand!!"
   1 se;"You busted."
   1 se;"I've got ";
   1 se;"I busted!!"
   1 se;"I beat you."
   1 se-on;"total:";
   1 print card
   1 pot=pot*tw:
   1 playtot=ze
   1 playtot=tot
   1 playtot=te+te+on
   1 players turn
   1 player wins
   1 play=play-pot
   1 play=play+pot
   1 pfive=five
   1 pbust=bust
   1 original deal
   1 on;"`";pot;
   1 on;"`";play
   1 on;"BLACKJACK"
   1 on/te,fi+tw-(y1-fi-tw):
   1 on/te,-tw:
   1 on/te,-on:
   1 on/(th*te),n:
   1 on/(hu),n:
   1 mon=mon-bet:
   1 mon=mon+mu*bet
   1 hu5=hu*fi:
   1 hu5+fif-te
   1 hu2=hu*tw:
   1 h(p)=h(p)/tw
   1 h(p)=h(p)*tw
   1 h(b)=h(b)*tw
   1 h$(tw,tw,on)="
   1 h$(tw,tw,on)<te
   1 h$(tw,fi,tw)
   1 h$(p,d,on)="
   1 h$(p,d,on)
   1 h$(p,d)=c$
   1 h$(d,b)="0"
   1 h$(b,d)=c$
   1 get total in hand p
   1 find winner
   1 fif=fi*te:
   1 fi+tw+(fi+tw)*(p-on),on;"total:";
   1 deal card and check for busting
   1 d$="A23456789
   1 d$=" even Money ":
   1 d$=" at two to one ":
   1 control routines
   1 computers turn
   1 computer wins
   1 choose card
   1 bet on hand
   1 aces=aces/tw
   1 a$(te+th,fi-on)
   1 Table     
   1 Side 2 - Craps
   1 Side 1 - Blackjack
   1 Roulette  
   1 Monte Carlo (Micromega)0
   1 JQK"(card)
   1 Handice   
   1 Cards     
   1 CRAPS     
   1 BLACKJACK O
   1 ;"total:";
   1 ;"leaves you with ";
   1 ;"`";mon-bet:
   1 ;"`";mon+mu*bet:
   1 ;"Your point is ";
   1 ;"You now have ";
   1 ;"You made `";mon-100
   1 ;"You have `";
   1 ;"You came out even!!":
   1 ;"You broke the bank!!!"
   1 ;"The house made a profit!!":
   1 ;"Snake's eyes. You lose":
   1 ;"No point, roll again.":
   1 ;"Natural..Great stuff!!":
   1 ;"MICROMEGA CRAPS":
   1 ;"MICROMEGA BLACKJACK":
   1 ;"Do you want to play a new round?";:
   1 ;"Do you want another game ?":
   1 ;"Craps....You lose.    ":
   1 ;"Craps, you lose.":
   1 ;"A winner...Well done!!":
   1 ;"'"''" I take my turn and then show    who won (me, I expect)."''" You can only hold five cards,   and if I am dealt an Ace and a  Picture Card then I have an     unbeatable BLACKJACK."''" Aces are tallied as 11 until    they would bust a hand, then    as 1."
   1 ;"' until you dare take no more for fear of   going bust."
   1 ;" bet paying";
   1 ;" Your "'" hand "''''''"  My  "'" hand "
   1 ;" This program simulates the gameof Craps and is played to the   standard Crap table rules."''" A brief outline of the rules   follows:-"
   1 ;" Hit any key to throw the dice"
   1 ;"   Press any key for the game   ";:
   1 ;"   Press any key for next page  ";:
   1 ;"                     "
   1 ;"                      ":
   1 ;"                       ":
   1 ;"                                "
   1 ;"                                                                "
   1 ******sort out money***
   1 ******New point********
   1 *********2,3
   1 **********7 or 11******
   1 *(te+th))+on
   1 *(fi-on))+on
   1 '82 A.Parish
   1 ''''''''''''''                                     
   1 '''" You start the game and I play   for the bank."''" Your cards should add up to as  close to 21 as possible, but    NO MORE or you are BUST."''" You are dealt one card, on      which you must bet, and then    you get another."''" You may then receive further    cards by pressing '";
   1 '''" When you have taken all the     cards you want you may stand    by pressing '";
   1 '"Hit any key for the game.":
   1 '"A 7 or 11 on the first roll wins"''"A 2,3 or 12 on the first roll   loses"''"Any other number becomes your   'point'. You continue to roll   and if you throw your point     again, you win. However, if you roll a 7 you lose. You start off with `100"
   1 "Roulette"
   1 "How much do you wager on this   round ?";bet:
   1 "How much do you bet on the card?(Whole numbers please.) ";pot:
   1 "Do you want another game ?"
   1 "56"*(p-on):
   1 "56"*(b-on):
   1 "144")<tw));h$(tw,on,on);
   1 "144")<tw));
   1  at two to one 
   1  A.Parish 1982 
   1  1982, A.Parish    
   1      *                       *      *        **     B
   1        888888888             
   1                                                                       000000     888888888            000000     888888888                       888888888             
   1                                                                                        000000     88888                000000     888:8                           888:8                           88888                                                                                                                   '''''''''
   1